home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 August: Tool Chest / Dev.CD Aug 95 TC / Dev.CD Aug 95 TC.toast / Tool Chest / Development Tools & Languages / Dylan Related / Mindy / Mindy 1.2 - Mac PPC / lib / random.dbc < prev    next >
Encoding:
Text File  |  1995-03-15  |  7.0 KB  |  62 lines  |  [TEXT/ttxt]
  1. # compilation (2.1) of library.dylan
  2. # produced with the 1.2 version of mindycomp
  3. nxöæ<Random>
  4. library.dylanEDylanF<random-distribution><uniform-distribution><unit-uniform-distribution><real-uniform-distribution><integer-uniform-distribution><exponential-distribution><normal-distribution>*dylan-random-seed**dylan-random-distribution*random-uniform seed-random!
  5. chi-squareˇ# compilation (2.1) of distributions.dylan
  6. # produced with the 1.2 version of mindycomp
  7. nxöæ<Random>distributions.dylan=D<random-distribution>7    "Define Class <random-distribution>*++<4%define-class-16<24list6<2<object>∞°≤£ëÇ$7 "Define Class <random-distribution>)+ 4%define-class-224∞°≤ê≤ê≤êÑ#B7Define Generic Random*+E+D
  8. 6E2<real>4<type>4%define-generic246D2†°`≤#¥•ë¥Pëá&D<uniform-distribution>7    #Define Class <uniform-distribution>*++    É46É2    46É2    ∞°≤£ëÇ$7 #Define Class <uniform-distribution>)+ 42    4    ∞°≤ê≤ê≤êÑ#D<unit-uniform-distribution> random-seedrandom-seed-setter7    (Define Class <unit-uniform-distribution>*++    å46å2
  9. 46å2    
  10. ∞°≤£ëÇ$7"(Define Class <unit-uniform-distribution>,+ +    ç+    é+    è 4 %define-slot2 2 42
  11. 44    make-slot 6ç2    <integer>
  12. init-function97)+    é6é2*dylan-random-seed*† init-keywordseed
  13. ∞!"Ç≥§µ∂'
  14. °¢®)*µê+,ôëµêµêÑ-@$a$7Define Constant $a$)+    ú4
  15. init-variable2 ı–¿`∞!PÉ@$m$7Define Constant $m$)+    ù6ù2ash42∞
  16. 
  17. í`±"PÉ@$k$7Define Constant $k$)+    û6û242∞
  18. 
  19. í`±"PÉ@a17
  20. Define Constant a1)+    ü
  21. 6ü2floor/6ü26ü242∞°¢í`≥$PÉ@a07
  22. Define Constant a0)+    †
  23. 6†2modulo6†26†242∞°¢í`≥$PÉC7Define Method Random++    ¢+    £+    ¢6¢2
  24. 46£2<double-float>4%define-method297 :/+    §)*dist    +    •)*z+    ¶)*z1!+    ß)*z0#+    ®)*r %+    ©
  25. '+    ©6§2 6•26•26¶26ß2*6ß26ß2ß26®2 6©2/6©2as6©22∞`±P¢ía≥P¢íb≥¥≥¥•Rí¥¶Qí¢í¢í¥¶RíßícSd∏T2Çπ∫´Sí∫´ßíí04†°`¢°a≥$Q%∂Pë∂QëÇ'D<real-uniform-distribution> unit-uniformunit-uniform-setter random-fromrandom-from-setter    random-torandom-to-setter7    (Define Class <real-uniform-distribution>*++    ≈46≈2,46≈2    ,∞°≤£ëÇ$7=(Define Class <real-uniform-distribution>.++    Δ+    «+    »+    …+     
  26. 4
  27. 2-2.2/20212242,44-6Δ2
  28. /6«2required-init-keywordfrom13to,∞!"Ç∞#$Ç∞%&Ç∑®π∫+
  29. °¢¨ï∫-
  30. £§Æ//ó∫/
  31. •¶Æ//óìπêπêÑ/C
  32. initialize7Define Method initialize)+    “6“2,4426976*+    ”)*     +    ‘
  33. )*76”26‘2make6‘2
  34. 6‘2.1ı †
  35. 1`±¢#Pìa¥Q2ÇQ46†°`≤#$µPëÇ&C7Define Method Random++    fi+    fl+    fi6fi2,46fl24297*+    ‡)*     +    ·:6‡2)6‡216‡2/6‡26‡2-∞2±2≤Ò≥2¥ëí2≤04†°`¢°a≥$Q%∂Pë∂QëÇ'D<integer-uniform-distribution>-./0127    +Define Class <integer-uniform-distribution>*++    Í46Í2;46Í2    ;∞°≤£ëÇ$7=+Define Class <integer-uniform-distribution>.++    Î+    Ï+    Ì+    Ó+    Ô
  36. 4
  37. 2-2.2/20212242;44-6Î2
  38. /6Ï234135;∞!"Ç∞#$Ç∞%&Ç∑®π∫+
  39. °¢¨ï∫-
  40. £§Æ//ó∫/
  41. •¶Æ//óìπêπêÑ/C67Define Method initialize)+    ˜6˜2;4426976*+    ¯)*     +    ˘
  42. )*<6¯26˘296˘2
  43. 6˘2.1ı †
  44. 1`±¢#Pìa¥Q2ÇQ46†°`≤#$µPëÇ&C7Define Method Random++    +    +    62;4624297*+        )*     +    
  45. >6    2round6    2)6    216    2/6    26    2-∞±2≤2≥Ò¥2µëí2≥ë04†°`¢°a≥$Q%∂Pë∂QëÇ'D<exponential-distribution>-.lambda
  46. lambda-setter7    'Define Class <exponential-distribution>*++    &46&2@46&2@∞°≤£ëÇ$7-'Define Class <exponential-distribution>-++    '+    (+    )+    *
  47. 4
  48. 2-2.2A2B42@44-6'2
  49. A6(2
  50. init-valueA@∞!"Ç∞#$ǵ¶∑∏)
  51. °¢™ï∏+
  52. £§¨-
  53. ./ôí∑ê∑êÑ/C67Define Method initialize)+    3632@4426976*+    4)*     +    5
  54. )*D6426529652
  55. 652.1ı †
  56. 1`±¢#Pìa¥Q2ÇQ46†°`≤#$µPëÇ&D<normal-distribution>unit-uniform-Aunit-uniform-A-setterunit-uniform-Bunit-uniform-B-settermean mean-settersigma sigma-setter7    "Define Class <normal-distribution>*++    `46`2F46`2F∞°≤£ëÇ$7V"Define Class <normal-distribution>1++    a    +    b    +    c+    d+    e+    f+    g+    h
  57. 4
  58. 2G2H2I2J2K2L2M2N42F44G6a2
  59. IK6c2CKMCMF∞!"Ç∞#$Ç∞%&Ç∞'(Çπ™ªº-
  60. °¢Æïº/
  61. £§Æïº/
  62. •¶Ø/
  63. //ôº/
  64. ß®Ø/
  65. //ôîªêªêÑ/C67Define Method initialize)+    r6r2F442697    ,6-+    s)*     +    t )*O+    uP+    vP+    uP6s26t296t2
  66. 6t2H6v26v2G6u2J1ı †
  67. 1`±¢#Pìa¥Q2DZ¢%∂2∑ëìa∏Q2ÇQ46†°`≤#$µPëÇ&@$pi$7
  68. Define Constant $pi$)+    Ñ
  69. 
  70. @I€42Q `±"PÉA7#Define Variable *dylan-random-seed*)+    £42 ≤Wá`∞!PÉA*dylan-random-distribution*7+Define Variable *dylan-random-distribution*)+    ≠6≠296≠2
  71. 6≠242R∞°"£ì`¥%PÉ@random-uniform7Define Constant random-uniform)+    ¿9 45?7    A1+    ¡**to-bound*
  72. from-bound    +    ¬    T+    ≈T+    ƒT+    ≈T+    ΔT+    «)*T+    »W+    …W+    ÀW6¡2 object-class6¬2error0Arguments to random-uniform must have same type.6≈2)6≈26≈2R6»26…2?6À2+∞2ë 
  73. ∞1ëı     ±"Å
  74. ≥12Ò¥•ëí2`∞1ëaQ¶ı ∑Pq∏∞1ëPr442S ±ê`≤#PÉ@ seed-random!7Define Constant seed-random!)+    ’6’2497.+    ÷    )*+    ◊[+    Ÿ[+    ⁄[+    €[+    ›[6◊36Ÿ296Ÿ2
  75. 6ÿ3R6€2YRandom seed must be > 0: %d1
  76. ¯
  77. 1¿±¢#†ìƒ
  78. µ&1dž442Z†°`"≥Pë`¥%PÉC
  79. chi-square7Define Method chi-square)+    ˚6˚2;442\97Ü\
  80. 1+    ¸)* +    ˝)*(]+    ˛ )*N^+    ˇ )*f_+    )*freq a+    
  81. )*ic+    e+    )*de+    g+    c+    c+    )*fc+    &)*
  82. sample-sum i+    j6¸216˝2)6˛2*6˛2+6˛26ˇ296ˇ2<vector>sizefill624element4element-setter
  83. 62^1∞`±
  84.  
  85. Pía≤≥§Qí≥§Pííbµ¶'P
  86. (
  87. ïc
  88. dQeTfUTÛ 
  89. π1ëg∫SWí
  90. hªXSWÉT
  91. d
  92. ’ˇˇˇ
  93. dPe,fTgVhUTÛ 
  94. T
  95. dΩX∫SWíRÒ
  96. íiYf
  97. ÷ˇˇˇ≤XRr4\†°`≤#$µPëÇ&ˇ